NeXT Education Software Sampler 1992 Fall/NeXT Education Software Sampler 1992 Fall.iso/SoundAndMusic/cmix/lib/pluckset.c

Text File | 1989-07-17 | 252b | 17 lines

pluckset(xlp,amp,seed,c,q,sr)
float amp,sr,xlp,seed,c,*q;
{
    int len,i;
    float x,rrand();
    q[1]=(int)(xlp*sr+4.5);
        len=q[1]-1;
    for(i=4; i<len; i++) {
        x=rrand(1.,seed);
        q[i]=amp;
        if(x < 0.) q[i] = amp;
    }
    q[0]=q[1];
    q[2]=c;
    q[3]=.99-q[2];
}